From 712a169400ab322d776afdac446c3cce3ee3bfea Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Thu, 24 Jun 1993 03:02:20 +0000 Subject: [PATCH] * ange-ftp.el: Loosen file-name-handler-alist regexp so we can do host name completion. --- lisp/ange-ftp.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 78f83c3e2c0..c7d4ea48a79 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.27 $") +(defconst ange-ftp-version "$Revision: 1.28 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -3748,8 +3748,12 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (let (file-name-handler-alist) (apply operation args))))) + +;;; This regexp takes care of real ange-ftp file names (with a slash +;;; and colon), and absolute filenames with only one component, for +;;; the sake of hostname completion. ;;;###autoload -(or (assoc "^/[^/:]+:" file-name-handler-alist) +(or (assoc "^/[^/:]*\\([^/:]:\\|\\'\\)" file-name-handler-alist) (setq file-name-handler-alist (cons '("^/[^/:]+:" . ange-ftp-hook-function) file-name-handler-alist))) -- 2.30.2